10 GOSUB60100:CLR:GOTO100
19 :
20 :   ************************
21 :   *                      *
22 :   * INPUT SUBROUTINE IS  *
25 :   *     LINES 40-59      *
26 :   *                      *
27 :   ************************
29 :
40 POKE198,0:PRINT"[[166]";:FORX=1TOLE:PRINT" ";:NEXT:PRINT"]":PRINT"[145]";
41 C$="":FORA=1TOLE+1
42 GETA$:IFA$=""THEN42
44 IFA$=CHR$(13)THEN59
46 IFA$=CHR$(20)ANDA>1THENPRINT"[157][157]  [157][157][166]";:A=A-1:C$=LEFT$(B$,A-1):GOTO42
48 IFA=LE+1THEN42
50 IF(NU)THENIFA$>="0"ANDA$<="9"THEN58
51 IF(NU)THENIFA$="."ORA$="-"THEN58
52 IF(AL)AND((A$>=" "ANDA$<="/")OR(A$>=":"ANDA$<="Z"))THEN58
54 IF(AL)THENIF(A$>="[193]"ANDA$<="[218]")THEN58
56 GOTO42
58 PRINT"[157]"A$;:POKE212,.:PRINT"[166]";:C$=C$+A$:NEXT
59 PRINT"[157] ":RETURN
62 :
63 :   * DEMO FOR SUBROUTINE *
64 :
100 POKE53280,.:POKE53281,.:PRINT"[147]             [158][212]OTAL [195]ONTROL"
110 PRINT"           [194]Y [199]ARY [214]. [198]IELDS"
120 PRINT"  [154][212]OTAL [195]ONTROL LETS YOU CHOOSE THE"
130 PRINT"MAXIMUM NUMBER OF CHARACTERS TO BE"
140 PRINT"ENTERED, AND WHETHER OR NOT YOU WANT TO"
150 PRINT"ACCEPT NUMBERS, LETTERS, OR BOTH."
160 PRINT"[198]IRST, YOU MUST SET [158][204][197] [154]EQUAL TO THE"
170 PRINT"MAXIMUM NUMBER OF CHARACTERS YOU WANT"
180 PRINT"THE ROUTINE TO ACCEPT. [212]HEN, IF YOU"
190 PRINT"WANT THE USER TO BE ABLE TO ENTER"
200 PRINT"NUMBERS, SET [158][206][213] [154]EQUAL TO 1; AND, IF YOU"
210 PRINT"WANT THE USER TO BE ABLE TO ENTER"
220 PRINT"LETTERS, SET [158][193][204] [154]EQUAL TO 1. [212]HEN ALL"
230 PRINT"YOU NEED TO DO IS [158][199][207][211][213][194] 40[154]."
250 PRINT"[212]HE FOLLOWING IS AN EXAMPLE OF WHAT"
260 PRINT"THE [194][193][211][201][195] CODE AND THE OUTPUT WOULD"
270 PRINT"LOOK LIKE:"
280 PRINT"  [204][197]=20:[206][213]=0:[193][204]=1:[199][207][211][213][194]40"
285 PRINT"[159][217]OU CAN ONLY ENTER LETTERS."
290 LE=20:NU=.:AL=1:GOSUB40
300 PRINT"[145][145][145][145][145]";:FORA=1TO5:PRINT"                                      ":NEXT
310 PRINT"[145][145][145][145][145][145]"
320 PRINT"  [204][197]=13:[206][213]=1:[193][204]=0:[199][207][211][213][194]40"
325 PRINT"[159][217]OU CAN ONLY ENTER NUMBERS."
330 LE=13:NU=1:AL=0:GOSUB40
340 PRINT"[145][145][145][145][145]";:FORA=1TO5:PRINT"                                      ":NEXT
350 PRINT"[145][145][145][145][145][145]"
360 PRINT"  [204][197]=34:[206][213]=1:[193][204]=1:[199][207][211][213][194]40"
370 PRINT"[159][217]OU CAN NUMBERS OR LETTERS."
380 LE=34:NU=1:AL=1:GOSUB40
390 PRINT"[145][145][145][145][145]";:FORA=1TO5:PRINT"                                      ":NEXT
400 PRINT"[145][145][145][145][145][145]"
410 PRINT"  [208]RESS [[211][208][193][195][197]] TO SEE DEMO AGAIN"
420 PRINT"  OR [[210][197][212][213][210][206]] TO RETURN TO [204][207][193][196][211][212][193][210]":POKE198,.
430 A=PEEK(203):IFA<>1ANDA<>60THEN430
440 IFA=60THEN100
450 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
460 IFER<>63THENEND
470 LOAD"HELLO CONNECT",8
60100 POKE53280,10:POKE53281,10
60110 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
60135 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60140 PRINT"         [204][207][193][196][211][212][193][210] [208]RESENTS:"
60150 PRINT"        [158]                     "
60160 PRINT"        [158]    [212]OTAL [195]ONTROL     "
60170 PRINT"        [158]                      "
60180 PRINT"        [158]  [194]Y [199]ARY [214]. [198]IELDS   "
60190 PRINT"        [158]                      "
60200 PRINT"        [158]  ([195])OPYRIGHT  1987   "
60210 PRINT"        [158]                      "
60220 PRINT"                              "
60230 PRINT"        [208]RESS [211][208][193][195][197] TO CONTINUE.":POKE198,.
60240 IFPEEK(203)<>60THEN60240
60250 RETURN